home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Tuning Melody Tester < prev    next >
Text File  |  1998-10-26  |  613b  |  30 lines
  1. (def-orchestra 'orchestra
  2.    all-instruments (line1)
  3. )
  4.  
  5. (create-tonality albion
  6.     '(1/1 16/15 9/8 6/5 5/4 4/3 64/45 3/2 8/5 5/3 16/9 15/8))
  7.  
  8. (def-section-timesheet sect-a
  9.              ;  1   5   9
  10.    with 1/1;    !---!---!
  11.    tonality    "." (activate-tonality (albion c 3 4024)) 
  12.    line1       "--------"
  13.    ;
  14.    beat 1/16 ; !---!---!---!---!---!---!---!---q
  15.    legato 90
  16.    line1      "--- --- - - " (match-beat '(a b c d e f g h i j k l)) with '(65)
  17. )
  18.  
  19. (init-rnd 0.4948)
  20.  
  21. (def-expression
  22.     default ((legato 100 10 0.4) (velocity 10 0.4))
  23. )
  24.  
  25. (def-tempo 54)
  26.  
  27. (play-file-p nil
  28.    all-instruments '(sect-a)
  29. )
  30.